Dr. Windows 3

home *** CD-ROM | disk | FTP | other *** search

/ Dr. Windows 3 / dr win3.zip / dr win3 / TOOLBOOK / IDC136.ZIP / SAMPLER.ZIP / IDC_136.TBK (.txt) < prev next >

Wrap

Asymetrix ToolBook File | 1993-12-23 | 189KB | 4,105 lines

$Master$ $Master$ -- This copied every that -- can be Can we unnecessary? cue n Prompt "Move the BEGINNING . Then CLICK Smouse INow IEND Error "System error :: Invalid umber" 4markCopyText firstchar countchars( lastchar CRLF & "Notes" Send Second point must be clearPrompt loc,t t)+2 -- The +2 which separates lines mouseEnter buttonUp mouseLeave countchars 'Prompt Move the pointer to the BEGINNING of the target text. Then CLICK the left mouse button. 'Prompt Now move the pointer to the END of the target text. Then CLICK the left mouse button. Error System error :: Invalid cue number mouseEnter firstchar markCopyText buttonUp textFromPoint firstchar countchars firstchar firstchar countchars firstchar firstchar Notes 'Prompt Second point must be after first point - start again. clearPrompt Notes firstchar lastchar markCopyText countchars mouseLeave markCopyText $Master$ $Master$ $Master$ $Master$ $Master$ 4compiled,protected,created,remote path( & "sys136.tbk" setupWindow -- so that handlers can distinguish setconstants setoptions setcompilepages "Version" . -- determine which have be deleted a,backgrounds lastb oneof(b,"$Compile$,$Standard$") "$Master$" compilePages addtags t ,noendreq ) > 1 -- Traps -- catches $ "MASTER " && "Label" localtags -- Format should initialize -- sets necessary) -- Handlers used Hformats during compilation makeNewPage n uses u optional u 4optionalhandlers -- Text processing NewPara 4temp,pstyle,mainelement,para_tag "$Scripts$" -- "newline" "blank" "indent" - & TAB preheading h 4hbefore, headings, caseheading h 4hcase, postheading h 4hafter, makeList params,fld,terminators 4item_tag,list_tag,bullet, lasttag "dash" "star" "plus" "other" asciiToChar( "$TextOptions$") beforeHypertext fld -- lbegin done Xmark processText close( textstring() -- tagstring() makeAnchor destination, phrase stored 9 -> the -- The appended 4rogue, ,anchorstyle,remark_tag fld) -- Note Jfew -- subsequently further Tare -- extended include those Trepeatedly. To avoid added later. foregoing (properly) be a call Vs+1 " && -- links (potentially) hidden hiddenlinks createHotWord findName( ErrorMessage "Cannot /" && fillscript( -- remarks treated -- It would be possible a different. -- way ( %another example) Hallowing authors specify how be handled. B"Popup" checkobject " 7,"Group", " " && findFormat f f & " errorMessage "no specified " && f "Trace" "$Control$" Plaintext tidyText fld BlanksText BlankswithDistractorsText "BD", "HN", -- See explain need tmessage also where -- called recursively "HN", ` ors,textcase i/phrases c"H" => hypertext; "N" => notes; "B" => blanks "D" => distractors terminate active_tag,note_tag,dest_attr,note_symbol, ,emphasis_tag 4hstyle, estyle,ecase, lank_tag,distractor_tag setcase( tname -- znothing ~("H", xallowed attribute( && "must be Can't ~("N", && " blank_tag ~("B", contents makeBlank ~("D", makeDistractor ) -- could be made a separate will be removed makeContents Vb+1 Vb+1 " && Vb+1 " && elaborated Illegal tag" Ucauses a general protection fault: replaced ttwo lines blankbegin & blankmiddle & blankend "unchanged" "title" "sentence" tidystring s checkforscrollbar result makePopup popups implemented does styles transferred such attributes lost. pomitted." -- Send illegal " && "$Shared$" SGML -- reads up beginning 4inputFile, CR & LF o > 0 Ro+1 entities substitute( s -- This 4ero,refc Vb+1 f,r) entityvalue( l & v & textlineCount( "Entities" holds most recently useful beforeHyperText has been missing" && && " extra" && checkEmpty "!--" "!ENTITY" skip -- means declarations only occur -- valid shriek removeComments(t) t -- a tag a comma-separated spaces converttoitems(t) "--" butFirst(w) "--" comment incorrectly butfirst(w)) a,pt -- processed ~("=", eq-1 Veq+1 ) -- assignment cannot 4endchar -- Dictionary routines addEntry n, n & "," & & e & addName n, ,"Names",e & "." " && & "." p" && n && " already w"" && m addImage i,e findImage(i) y,"Images",e p" && i && " image" && findEntry(n," ) n,f checkexists p -- &probably be '" & p & "' '" & p & "' -- Utilities anchorAdjective "boxed" & "ed" & "d" " && permanentAnchors 7,italics, 4errorcount, F-- scanning ScanErrorMessage c "** ERROR:" && c & ~ > 30 "** ABORTED: Too many errors" & "TOO MANY ERRORS!" default ( i,l -- returns itemnumber(i,l) l ( 0 xfound) itemize(s) ,f)>0 quoted(s) f & "," & V s)) Vq+1 quotation Vq+1 s & "," i1 & & i2 & & i3 & s,l ~("%",s) Rp+1 6 n,t,l xverifyobject(n,t,l) t && & n & C n,t,l " && l && " addpagelist i,n -- adds (i) [i may be a ~("\",f) 4currentpage F-- Not a getImage n,w,a,f,g -- width border -- alignment: "tl"= S"tr"= " bl"= S"br"= frame -> (containing same n && " xknown." -- Frame x on importGraphic i Q&t load graphic file" && i r$failed bp - bp - depth (y2+y1)/2- (x2+x1)/2- -- i.e. drawdirect l%P!E x&_UR BlankswithDistractorsText localtags Hypertext beforeHypertext initialize processText makeNewPage makeBlank makeDistractor enterBook tidyText makePopup checkEmpty addtags entity optional addEntry makeList addName enterPage addImage checkexists makeAnchor ErrorMessage checkobject setcompilepages author Plaintext previous addpagelist BlanksText makeContents getImage entityvalue tagstring findFormat process removeComments NewPara attribute setcase close findName caseheading findImage findEntry tidystring destination anchorAdjective checkforscrollbar permanentAnchors oneof itemnumber preheading converttoitems textstring itemize quoted substitute butFirst fillscript postheading verifyobject enterBook sys136.tbk setupWindow 7:setconstants setoptions setcompilepages Version compiled protected created remote setcompilepages $Compile$,$Standard$ oneof $Master$ compilePages lastb compilepages backgrounds addtags oneof oneof noendreq enterPage $Master$ MASTER for Label localtags initialize makeNewPage y5newPage xroptional optional oneof optionalhandlers NewPara header o' option $Scripts$ newline blank indent pstyle mainelement para_tag preheading header o' option $Scripts$ newline blank hbefore mainelement headings caseheading header o' option $Scripts$ hcase mainelement headings postheading header o' option $Scripts$ newline blank space hafter mainelement headings makeList header o' option Scripts$ other bullet $TextOptions$ asciiToChar beforeHypertext process processText close oneof textstring tagstring item_tag list_tag bullet mainelement headings lasttag terminators params makeAnchor italic,bold,underline hiddenlinks links GRcreateHotWord findName #ErrorMessage Cannot find $Standard$ fillscript Popup $Standard$ fillscript checkobject Popup Group this background checkobject Popup recordfield group Popup of this background $Standard$ fillscript #ErrorMessage No script for rogue formats anchorstyle remark_tag string destination findFormat format $Options$ #errorMessage no format specified for Trace $Control$ Plaintext processText close tidyText BlanksText processText close tidyText BlankswithDistractorsText processText close tidyText Hypertext processText close tidyText beforeHypertext processText tidyText processText textstring setcase tagstring process NewPara close #errorMessage anchors not allowed in this text. attribute #errorMessage must be specified textstring setcase tagstring close #errorMessage Can't have tags in active text makeAnchor #errorMessage notes not allowed in this text. attribute #errorMessage must be specified makeAnchor #errorMessage blanks not allowed in this text. textstring tagstring close #errorMessage tags not allowed in contents of blank. {makeBlank #errorMessage distractors not allowed in this text. textstring tagstring close #errorMessage tags not allowed in contents of distractor. YwmakeDistractor oneof preheading processText close caseheading P!makeContents postheading processText close hmakeList close oneof #errorMessage Illegal tag tname tstring hstyle hcase estyle ecase headings list_tag blank_tag distractor_tag rogue active_tag note_tag dest_attr note_symbol para_tag emphasis_tag textcase terminators params makeBlank options blankbegin blankmiddle blankend makeDistractor options setcase uppercase title sentence i:to1 tidystring rogue tidyText rogue checkforscrollbar result makePopup attribute #ErrorMessage name omitted. textstring tagstring process NewPara close close #ErrorMessage illegal tag $Standard$ Blank $Shared$ paste Blank para_tag textstring substitute inputFile substitute entityvalue substitute entityvalue Entities $Control$ Entities $Control$ entities tagstring Trace $Control$ #errorMessage missing or extra checkEmpty textstring checkEmpty textstring !ENTITY $entity textstring inputFile close lasttag checkEmpty removeComments #ErrorMessage illegal tag close shriek process removeComments converttoitems removeComments butFirst #errorMessage comment incorrectly delimited. butfirst removeComments butfirst removeComments entity removeComments #ErrorMessage missing quote(s) in entity declaration Entities $Control$ attribute #ErrorMessage missing substitute #errorMessage attribute assignment cannot have spaces close endchar textstring tagstring addEntry $Control$ addName findName jaddEntry Names with tag #ErrorMessage the name has already been used remark_tag formats addImage findImage jaddEntry Images #ErrorMessage the name is already used for image findName Names findEntry findImage Images findEntry findEntry $Control$ $Control$ checkexists findName #ErrorMessage ' does not exist. destination findName #ErrorMessage ' does not exist. anchorAdjective boxed invert underline anchorstyle permanentAnchors bold,italics,underline anchorstyle ErrorMessage ScanErrorMessage $Compile$ ** ERROR: Trace $Control$ $Control$ ** ABORTED: Too many errors Trace TOO MANY ERRORS! Error default errorcount inputFile oneof itemnumber itemnumber converttoitems itemize itemize quoted butFirst itemize quoted #errorMessage missing quotation mark butFirst itemize butFirst fillscript checkobject verifyobject #errorMessage not found in format. verifyobject put objects of into o author protected protected previous protected addpagelist pagelist makeContents tidystring Contents $Shared$ Pages $Shared$ currentpage getImage findImage #ErrorMessage image not known. background foreground paste #ErrorMessage Cannot load graphic file #errorMessage failed to load image. group depth width "Label" -- Handlers used compiling 4inputFile,monitor,stack,scanerrors,defaultfile,remote B"Tidyup" ("Please give "Names" "Images" resourcesfile checkFormats sysErrorNumber>0 scanErrorMessage "trying " && && " tagcount "Source:" && & CRLF "Trace" "$Control$" textstring() unexpected tagstring() scantag scanned y-- body > 0 && " (s)." Mthere has been a pchange 4formats "$Options$" textlineCount( found no such %" && t changeCursor ,close,endchar,components missing" && 9 && " " && t process(t) element unwind xoneof( illegal" && xstacked attribute(" p",pt) addName noendreq n -- just matching " && && "omitted." >-- OK ) -- need xbe matched itemnumber(n, End tag(s) " && e && "should occur 4" && & "." " && state "** ERROR:" && m & > 20 "** ABORT: too many "TOO MANY ERRORS!" resourcesindex keepFile " && && " "Resources:" && "idc" nameEntry pt, ,"$I" "app" P,"$A" "picture" -- image becomes standard imageEntry pt, missingClose ScanErrorMessage "Index :" && arg,mark p",pt) ",pt) f-- filename A",pt) f && * -- ignore description p",pt) ",pt) -- addImage n, -- (t) && " :" && IDCname n "Suite" "$First$" scantag enterPage unwind checkFormats scanErrorMessage resourcesfile nameEntry changeCursor imageEntry missingClose IDCname IDCname enterPage Label Label buttonUp Tidyup Please give file name Names Images Qresourcesfile checkFormats scanErrorMessage trying to open as input file. Source: Trace $Control$ textstring scanErrorMessage unexpected text before first tag. tagstring 0scantag textstring tagstring 0scantag error(s). Error Names Trace default tagcount inputFile monitor stack scanerrors defaultfile remote checkFormats format $Options$ Formats $Options$ Formats $Options$ scanErrorMessage there is no such format as i:to1 found formats changeCursor scantag changeCursor scanErrorMessage missing process unwind oneof scanErrorMessage illegal oneof attribute addName element stack close endchar components unwind scanErrorMessage matching open tag for omitted. oneof unwind itemnumber #ErrorMessage End tag(s) for should occur before scanErrorMessage matching open tag for omitted. stack noendreq scanErrorMessage ** ERROR: Names ** ABORT: too many errors Names TOO MANY ERRORS! Error Names Trace default scanerrors inputFile resourcesfile scanErrorMessage trying to open as resources index. Resources: Trace $Control$ textstring tagstring index changeCursor textstring tagstring process nameEntry nameEntry picture imageEntry image imageEntry index close $missingClose ScanErrorMessage Index missing in resources index: keepFile inputFile resourcesindex nameEntry attribute attribute attribute addName textstring tagstring close $missingClose imageEntry attribute attribute fBaddImage textstring tagstring close $missingClose missingClose scanErrorMessage close missing in resources index: resourcesindex IDCname Suite $First$ IDCname Suite $First$ selectedTextlines "Items" "Ans" wrong textlineCount( "Responses" Correct(i) "Option" B"Explain" "Right" "Explanation" B"Next" Answers -- used "AnsNos" Error "System Fault: Format Pairs" buttonUp Answers Correct buttonUp Items Items Responses Correct Responses Option Explain Explain Right Explanation Explain Explain Explain wrong Answers Items Correct Responses Responses Correct Correct AnsNos Error System Fault: Format Pairs Points "Help" buttonUp buttonUp CBL Unit, University of Leeds, v A 1.1 931202 Label MASTER for Points Prompt heading rightbuttonUp buttonUp rightbuttonUp buttonUp rightbuttonUp buttonUp LEFT mouse button moves to next point. RIGHT mouse button displays further information. RIGHT button + Control Key moves to next page. LEFT button + Control Key moves to previous page. CLICK TO HIDE $First$ 4protected,created > 0 F-- detaching sysLockscreen "$Control$" enterpage enterpage $Control$ protected created $First$ Version Interactive Document Compiler Version 1.3601 Compiler :PHYSSIZE Formats Shell This is only a SHELL and contains no formats. It cannot be used to compile documents. Suite Sampler 1.0 23rd December 1993 1993 Computer Based Learning Unit, The University of Leeds First $First$ makepage n,pt makenewpage n,pt destination(attribute(" t",pt)) nextpage textstring() "heading" done tagstring() process( errorMessage "too many points." "p" & p xclose(tn) ErrorMessage && "expected" Vtn && " illegal "c" & p CRLF & f > 0 f > 0 initialize hidden Help" localtags addtags "pt" epage initialize makepage localtags makepage makenewpage attribute destination nextpage textstring heading tagstring process #errorMessage too many points. textstring tagstring close #ErrorMessage close expected close points #ErrorMessage is illegal at this point in this format. textstring #errorMessage text too long. initialize hidden recordfield c1,recordfield c2,recordfield c3,recordfield c4,recordfield c5, field Help localtags L)addtags initialize "p" & i }l,s,c retreat > points "c" & "p" & fade f "p" & p "c" & p "p" & rightbuttonUp l,s,c nextpage advance "c" & sc + fc)/2 ttonUp initialize highlight rightbuttonUp buttonUp initialize buttonUp Cretreat points highlight highlight points 0,0,0 rightbuttonUp nextpage \$advance MCQ:S&B(I)Y !L!r! "X"f# Label MASTER for MCQ:S&B(I)Y Branch1 Branch2 Branch3 Branch4 Explanation Explain "Tell1" " & i "Right" "Tick" & i "Cross" & i "branch" & i -- "Input" "Explanation" oneof(" xframe",hidden B"Next" buttonUp buttonUp Right Cross Right false branch Input Explanation group xframe hidden oneof xframe EXPLAIN textlineCount( "Correct") branches "Right" "Answers" dontknow i correct i incorrect i "Tell" & i incData " "Tick" & i "Cross" & i awrong",1 dontknow buttonUp correct incorrect buttonUp Correct Right Answers t~dontknow >correct incorrect branches dontknow Right %incData dontknow correct %incData right incorrect Cross %incData wrong Branch5 nextpage advance follow buttonUp buttonUp nextpage \$advance follow branches Input "Answers" clearButtons i "True,False,?" buttonUp clearButtons buttonUp Answers b*clearButtons clearButtons True,False,? U#$ X Input1 True1 False1 FALSE CANCEL Input2 True2 False2 FALSE CANCEL Input3 True3 False3 FALSE CANCEL Input4 True4 False4 FALSE CANCEL Input5 True5 False5 FALSE CANCEL Tell1 Tell1 Tick1 Cross1 Tick2 Cross2 Tick3 Cross3 Tick4 Cross4 Tick5 Cross5 Tell2 Tell2 Tell3 Tell3 Tell4 Tell4 Tell5 Tell5 Title 1993 Computer Based Learning Unit, The University of Leeds. A 2.1 9310251 Group Correct Right Answers XFrame Prompt ShowPicture "sframe" buttonUp buttonUp sframe Show Picture sframe dismiss B"showPicture" dismiss dismiss showPicture SFrame HidePicture dismiss buttonUp buttonUp Fdismiss Hide Picture MCQ:S&B(I)Y makePage n,pt makeNewPage n attribute(" t",pt) destination( nextpage 9si",pt) -- Stem image getImage ,0,"tl","sframe", uxi",pt) -- Explanation " && "xframe" hidden ,0,"tl"," makeMCQ n,pt initialize setup "title,hidemenubar,setformat" Bshowpicture" localtags addtags "br,x" branch textstring() -- stem tagstring() process( "b" & ans",t) ErrorMessage tf && " illegal value tf & CRLF "Correct" xclose( ) && "expected." Plaintext " checkforscrollbar(" " && fieldformat should be > 5 errorMessage "too many branches." initialize makePage localtags makeMCQ makePage makeNewPage attribute destination nextpage attribute _UgetImage sframe attribute group xframe hidden _UgetImage xframe O.makeMCQ initialize setup title,hidemenubar,setformat hidden button showpicture localtags L)addtags makeMCQ textstring tagstring process textstring attribute false #ErrorMessage is an illegal value for attribute 'ans' Correct tagstring close #ErrorMessage close expected. Plaintext Explanation Explanation checkforscrollbar Explanation fieldformat close #ErrorMessage is illegal in this format. textstring #errorMessage too many branches. branch initialize "Input" textlineCount( "Correct") branches x & i "b" & " & i "Right" clearButtons i "Tell" & i "Tick" & i "Cross" & i < 5 " & i "Answers" "Explanation" B"OK" B"Next" stringData(" "Group" initialize initialize Input Correct branch Correct Right ob*clearButtons Input Input Cross branch Input Cross Answers Explanation group stringData Group branches Test Teach Label initialize wrong "Response" initialize initialize wrong Response Response MASTER for Test Teach Prompt Question Response Remark Feedback 1993 Computer Based Learning Unit, The University of Leeds v1.0 9312022 nextpage advance follow buttonUp buttonUp nextpage \$advance follow Test Teach $TextOptions$ 4anchorstyle,hstyle,hcase,hbefore,hafter,estyle,ecase,pstyle,bullet B & " setbutton "e", sethbuttons bprefix,value ^l,suffix "h" & i & terpage setbutton enterpage sethbuttons enterpage anchors buttonUp setbutton setbutton setbutton setbutton sethbuttons sethbuttons sethbuttons sethbuttons anchorstyle hstyle hcase hbefore hafter estyle ecase pstyle bullet setbutton buttonUp value prefix sethbuttons buttonUp suffix Hypertext Paragraph before after before after before after before after before after headingstyle 4hstyle "h" & i & buttonUp buttonUp italic,underline,bold hstyle h1italic Italic h1underline Underline h1bold h2italic Italic h2underline Underline h2bold h3italic Italic h3underline Underline h3bold h4italic Italic h4underline Underline h4bold h5italic Italic h5underline Underline h5bold headingcase 4hcase [,title,sentence,unchanged" "h" & i & buttonUp buttonUp uppercase,title,sentence,unchanged hcase h1uppercase Upper Case h1title Title Case h1sentence Sentence Case h1unchanged Unchanged h2uppercase Upper Case h2title Title Case h2sentence Sentence Case h2unchanged Unchanged h3uppercase Upper Case h3title Title Case h3sentence Sentence Case h3unchanged Unchanged h4uppercase Upper Case h4title Title Case h4sentence Sentence Case h4unchanged Unchanged h5uppercase Upper Case h5title Title Case h5sentence Sentence Case h5unchanged Unchanged Emphasis estyle 4estyle "e" & buttonUp buttonUp italic,underline,bold estyle eitalic Italic eunderline Underline ebold ecase 4ecase [,title,sentence,unchanged" "e" & buttonUp buttonUp uppercase,title,sentence,unchanged ecase euppercase Upper Case etitle Title Case esentence Sentence Case eunchanged Unchanged AnchorStyle clearbuttons ,boxed, & "anchors" clearbuttons clearbuttons invert,boxed,bold,italic,underline anchors Anchor Style Anchor Style Button InvertAnchors 4anchorstyle clearbuttons buttonUp buttonUp invert b*clearbuttons anchorstyle Invert BoxedAnchors 4anchorstyle "boxed" clearbuttons buttonUp buttonUp boxed b*clearbuttons anchorstyle Boxed ItalicAnchors 4anchorstyle clearbuttons buttonUp buttonUp italic b*clearbuttons anchorstyle Italic UnderlineAnchors 4anchorstyle clearbuttons buttonUp buttonUp underline b*clearbuttons anchorstyle Underline BoldAnchors 4anchorstyle clearbuttons buttonUp buttonUp b*clearbuttons anchorstyle Anchor Style Permanently Shown Anchor Style Shown on request pstyle 4pstyle "newline,blank,indent" "p" & buttonUp buttonUp newline,blank,indent pstyle pnewline Newline pindent Indent pblank Blank Line headingbefore 4hbefore (n)-1 "newlineb,blankb" "h" & i & buttonUp buttonUp newlineb,blankb hbefore h1newlineb Newline h1blankb Blank Line h2newlineb Newline h2blankb Blank Line h3newlineb Newline h3blankb Blank Line h4newlineb Newline h4blankb Blank Line h5newlineb Newline h5blankb Blank Line headingafter 4hafter (n)-1 "newlinea,blanka,spacea" "h" & i & buttonUp buttonUp newlinea,blanka,spacea hafter h1newlinea Newline h1blanka Blank Line h1spacea Space h2newlinea Newline h2blanka Blank Line h2spacea Space h3newlinea Newline h3blanka Blank Line h3spacea Space h4newlinea Newline h4blanka Blank Line h4spacea Space h5newlinea Newline h5blanka Blank Line h5spacea Space Bullethhhhhhhh bullet 4bullet "dash,star,plus,other" "b" & buttonUp buttonUp dash,star,plus,other bullet bstar bother "bother" ("Give ASCII value Syou would like use" buttonUp buttonUp bother Give the ASCII value of the character you would like to use bother bplus bdash bother "$Options$" buttonUp buttonUp $Options$ $TextOptions$ makePage n,pt 4lasttag makenewPage n attribute(" t",pt) nextpage beforeHypertext "Question"," h,ar,ca" done process( allow",t) cAllow(cc) textto(n) Correct(cc) aAllow(ac) textstring() Anticipated(ac) tagstring()) Feedback(ac) close(n) znothing expected Tell",n Hint",n nullstring nAnticipated nCorrect -- These tthree handlers could usefully be the Book tag -- returns checks closes errorMessage {) && " :"Text" && && "where xallowed." initialize hidden BNext" cleared ,Remark" localTags addTags "ca, h,ar,fb,ht" makePage nullstring initialize expected localTags textto makePage makenewPage attribute nextpage beforeHypertext Question cr,ar,ca process allow attribute cAllow textto Correct allow attribute aAllow textstring Anticipated tagstring process textto Feedback close bexpected close Hypertext Hypertext close nullstring tagstring nAnticipated nCorrect lasttag textto textstring tagstring process close bexpected close expected #errorMessage close expected. nullstring textstring #errorMessage where not allowed. initialize hidden recordfield Hint,recordfield Tell,button Next cleared Feedback,Remark localTags L)addTags ca,cr,ar,fb,ht keyEnter checkResponse "Feedback" "Remark" responseCorrect( responseAnticipated( Incorrect unrecognised "Tell" B"Next" "Your answer incorrect." Wrong Unrecognised @was xanticipated." wrong /> 1 "Hint" /> 2 nCorrect match(t, ,cAllow(i) nAnticipated ,aAllow(i) Match t,a,m xIsNumber(t) a = t ( t <= n+e) ( t >= n-e) Spelling(a) RemoveExtra(t,a) Alphabet(a) "[" & m & "]" && t && "|" && a Reduce( (w) -- always leave "aeiouyh" (r) > 4 [(s) (s)-1 gi+1 IsBefore(n,t) gi+1 U s,t U(t) j(ls,lt) ns < nt ns > nt ls < lt checkResponse Incorrect Unrecognised Wrong keyChar Correct Match responseCorrect IsNumber RemoveExtra Spelling responseAnticipated Reduce Alphabet IsBefore keyChar EcheckResponse checkResponse Feedback Remark responseCorrect >Correct responseAnticipated Incorrect unrecognised Incorrect Your answer is incorrect. Remark Wrong Unrecognised Your answer was not anticipated. Remark Wrong Wrong wrong wrong wrong Correct Your answer is correct. Remark responseCorrect nCorrect Correct cAllow match responseAnticipated nAnticipated Anticipated aAllow match Feedback Feedback Match IsNumber Spelling Spelling RemoveExtra Alphabet Alphabet IsNumber RemoveExtra j:to1 Spelling Reduce Reduce aeiouyh Alphabet IsBefore i:to1 IsBefore saveScores stringData("scores") recordfile") ;datapath") & "\" & recordFile n & "=" & & CRLF loadScores done readLine( ~("=",l) oneof(n,s) setData n,v Error n && " xrecognised [" & s & "] :" && wrong saveScores loadScores saveScores scores stringData recordfile stringData datapath stringData recordfile stringData recordFile loadScores scores stringData recordfile stringData datapath stringData readLine oneof 45setData Error not recognised [ ] in record file: Error record file in wrong format. recordFile HyperBook makePage n,pt makeNewPage n attribute(" t",pt) destination( nextpage 9more",pt) morepage dalso",pt) alsopage image",pt) getImage ,300,"tl","Frame", Hypertext "Text",pt checkforscrollbar(" $ && fieldformat initialize setup "setformat,showmenubar" optionalbuttons hidden Popup" makePage initialize makePage makeNewPage attribute destination nextpage attribute destination morepage attribute destination alsopage image attribute _UgetImage Frame Hypertext checkforscrollbar fieldformat initialize setup setformat,showmenubar optionalbuttons continue nextpage,more morepage,also alsopage hidden group Popup R x N Label MASTER for HyperBook PreviousPage retreat buttonUp buttonUp Cretreat Continue nextpage advance buttonUp buttonUp nextpage \$advance Computer Based Learning Unit The University of Leeds v A 1.1 93120155555555993 morepage advance buttonUp buttonUp morepage \$advance alsopage advance buttonUp buttonUp alsopage \$advance Prompt Popup dismiss dismiss dismiss Popup Dismiss dismiss buttonUp buttonUp Fdismiss DISMISS Frame Rewind upLevel buttonUp buttonUp GupLevel scanEr Control $Control$ $Standard$ $Shared$ Contents Pages "Documentation" enterpage leavepage enterpage Documentation leavepage Documentation Title: An example of an interactive document $Title$ 4addressstack "$Shared$" -- documentation enterpage rightButtonUp enterpage addressstack rightButtonUp $Shared$ Title :PHYSSIZE Copyright Error 4allowexit sysSuspendMessages buttonUp buttonUp allowexit $Options$ 4resourcesindex,defaultfile,destinationpath "Resources Index" "Defaultfile" "DestinationPath" enterpage enterpage Resources Index Defaultfile DestinationPath resourcesindex defaultfile destinationpath $Options$ 4optionsFile saveOptions "$Control$" buttonUp buttonUp saveOptions $Control$ optionsFile Formats Formats 4defaultfile ("Give full path inputfile" "Defaultfile" buttonUp buttonUp Give full path name of default inputfile Defaultfile defaultfile Set default file Defaultfile sysLockscreen "$TextOptions$" buttonUp buttonUp $TextOptions$ Text Options General Options 4resourcesindex ("Give full path "Resources Index" buttonUp buttonUp Give full path name of resource index Resources Index resourcesindex Set resource index Resources Index Formats 4formats selectedTextlines "Formats" [association n & " rightbuttonUp tonUp format buttonUp rightbuttonUp buttonUp format format button Formats Formats format formats rightbuttonUp format f1format f2format f3format f4format f5format f6format f7format f8format f9format f0format Assign formats by clicking in the list to the right and then on the buttons in the above list. 4userFile ("Give full path file" getOptions buttonUp buttonUp Give full path name of file getOptions enterpage userFile Load options from file 4userFile ("Give full path file" saveOptions buttonUp buttonUp Give full path name of file saveOptions userFile Copy options to file 4destinationpath ("Give output file (no final \)" "Destinationpath" buttonUp buttonUp Give destination path for output file (no final \) Destinationpath destinationpath Set destination path DestinationPath $Standard$ "Label" enterPage enterPage Label Label Label $Help$ dismiss dismiss buttonUp dismiss buttonUp background 0bringToFront foreground Click on the kind of help you require go tooooooooooooooooooooooooo $Help$ selectedTextlines help advance buttonUp buttonUp \$advance \$advance Dismiss dismiss buttonUp buttonUp Fdismiss DISMISS $Contents$ dismiss dismiss buttonUp dismiss buttonUp background 0bringToFront foreground Click on the name of the section that you wish to go toay $Contents$ selectedTextlines "Pages" "$Shared$" advance buttonUp buttonUp Pages $Shared$ \$advance Dismiss dismiss buttonUp buttonUp Fdismiss DISMISS $Pages$ dismiss dismiss buttonUp dismiss buttonUp background 0bringToFront foreground Click on the name of the page you wish to seeplayyyyyy $Pages$ selectedTextlines advance buttonUp buttonUp \$advance Dismiss dismiss buttonUp buttonUp Fdismiss DISMISS Common $Common$ Shared $Shared$ Master $Scripts$ $Master$ Title $Title$ $Standard$ $Standard$+ This page and its background contain objects used during compilation. Some objects are copied to background or to document pages, others contain skeleton scripts.. Skeleton Scripts Popup --Template activating a Popup "%1" "$Shared$" showPopup buttonUp buttonUp $Shared$ showPopup Activate Popup -- Script link a Page advance "%1" buttonUp buttonUp \$advance Link to Page or Book Blank FormatBookScript -- This copied formats are extracted sysRuntime <only." You may inspect scripts you wish." f"Exit" "Inspect" enterBook enterBook This book contains IDC formats only. This book contains IDC formats only. You may inspect the objects and scripts if you wish. Inspect inspect Script for extracted formats $Standard$ Random Standard (SVGA) 4stack,compiling,currentpage 4inputFile, ,close,created,monitor,scanerrors,errorcount % > 0 G > 0 "Trace" "Entities" -- ensure options "$Options$" y-- se makeContents textstring() -- everything ignored (illegal SGML) tagstring() process( compileheader jThis should be compilebody default && " (s)" "Error" changeCursor mainelement "dd-MMM-y (hh24: "Created " && & CRLF & p&& " "Data" "$Title$" "Version" "$First$" attribute(" ",pt) errorMessage " omitted" checkexists( firstpage /"$Common$" done "title" textfield ErrorMessage ) && "expected." (c)>32 F-- exceeds allowed HToolbook Kcannot have more than 32 ," -- may become redundant compilecredits p ,"Date" "copyright" ,"Copyright"," "doc" compiledoc p "help" compilehelp p "Misplaced : " & '" & e & "' found" t,f,pfx f & ":" && "Documentation" "$Shared$" (t) && " plainText " p",pt) pmust be specified." Destination(n) "Help" (t) && " 4formats,inputfile,remark_tag, makePopup p oneof( findformat( skip compileformat p, > (e) :" && -- What here? '" & e & "' compileremark pt -- obsolete p",pt) n -- Remarks are treated %handled -- see comments Book -- processed tag (including values) -- levels 3 -- i.e. f0,f1,f2,f3 considered be hierachical p",pt) i -- (instance) (i) > 32 less initialized checkobject "Label"," Prompt"," makePage i,pt list",pt) List greater addpagelist l,i 0,i -- %well optional uses /m -- the following message " sent xneeded {setup drawdirect copyGroup "$Pages$",m -- These xdrawn -- so that they always on $", m -- And "$Scripts$" copyfields "yes" "$Standard$" angeCursor compilecredits compiledoc buttonUp compilehelp compileheader compilebody compileremark compileformat textfield initialize changeCursor copyGroup buttonUp Trace Entities $Options$ textstring tagstring process .compileheader textstring tagstring process compilebody error(s) Error default inputFile close created monitor scanerrors errorcount stack compiling currentpage changeCursor compileheader header header dd-MMM-y (hh24:min) Created from using $Title$ Version $First$ $Title$ start attribute #errorMessage start omitted checkexists $Common$ firstpage changeCursor textstring tagstring process title textfield Title caption textstring tagstring close #ErrorMessage close expected. #ErrorMessage caption cannot have more than 32 characters. author qcompilecredits credits qcompilecredits textfield copyright textfield Copyright Content compiledoc compilehelp close #ErrorMessage Misplaced element: #ErrorMessage 'header' expected ' ' found inputFile mainelement textfield textstring $Title$ Documentation $Shared$ tagstring close #ErrorMessage close expected. compilecredits $Title$ plainText credits compiledoc $Shared$ plainText Documentation compilehelp attribute #ErrorMessage name must be specified. Destination textstring $Shared$ tagstring close #ErrorMessage close expected. compilebody changeCursor textstring tagstring process makePopup oneof findformat close Icompileformat close #ErrorMessage Misplaced element: #ErrorMessage 'body' expected ' ' found formats inputfile remark_tag mainelement compileremark attribute makePopup compileformat attribute #errorMessage name of page must be 32 or less characters. initialized initialize checkobject Label field this background checkobject Prompt field this background NmakePage level attribute #errorMessage List number must be greater than 0 addpagelist addpagelist levels created currentpage initialize initialize xroptional xroptional setup copyGroup $Pages$ copyGroup $Contents$ copyGroup $Help$ $Text$ $Scripts$ copyfields initialized copyGroup $Standard$ background background paste $TextOptions$ notetaking enable "Notes" hideNotes showNotes saveNotes 4nsep,nend newFilename("SNF") noteFile x"$Common$" setup && p & CRLF & loadNotes newFileName(" previousline sysErrorNumber = 559 F-- No file error ::" && r&& " %" && LF -- skip -- notefile -- -- empty & " " "Invalid ::" && owNotes notetaking hideNotes saveNotes showNotes loadNotes notetaking enable Notes hideNotes showNotes Notes hideNotes Notes saveNotes newFilename $Common$ notetaking setup Notes noteFile loadNotes newFileName Error Note file error :: Notes Error Invalid note file :: previousline noteFile System ntury Gothic $ showCaption Small Fonts Times New Roman Times New Roman Times New Roman Times New Roman Times New Roman System Times New Roman ntury Gothic Times New Roman Times New Roman ntury Gothic Terminal ExitPassword Interactive Document Compiler gD|D| Times New Roman MS Serif Times New Roman Times New Roman ok Antiqua mes New Roman Times New Roman Times New Roman Times New Roman mes New Roman MS Sans Serif Arial Times New Roman Terminal Terminal Terminal qxAbEA MS Sans Serif System MS Sans Serif MS Sans Serif MS Sans Serif Times New Roman Times New Roman Times New Roman SjoNqyA ouPxAKe IDCpassword Sans Serif $Compile$ Label Version C:\KEN\IDC\COMPILER\SHELL136.TBKK Created 23 December 1993 11:15:59 Shell created $Common$ 4compiled,usebookmarks,addressstack disable "Contents,Notes,CopyText,Visited" 2List marked ,Mark ,Unmark anchorstyle "boxed, ShowLinks" help Help" leavebackGround "Documentation" enable " ackground enterBackground leavebackGround enterBackground x%disable Contents,Notes,CopyText,Visited x%disable List marked pages,Mark this page,Unmark this page anchorstyle boxed,invert x%disable ShowLinks x%disable compiled usebookmarks addressstack leavebackGround Documentation enable Contents,Notes,CopyText,Visited enable List marked pages,Mark this page,Unmark this page anchorstyle boxed,invert enable ShowLinks enable compiled usebookmarks Computer Based Learning Unit The University of Leeds Credits Documentation Start firstpage advance buttonUp buttonUp firstpage \$advance START firstpage intro intro $Control$ 4monitor,created B"Normal" B"Monitor" ? && " "Pages" B"Read" hideButtons l showButtons l terPage hideButtons enterPage showButtons enterPage reader buttonUp Normal Monitor pages Pages monitor created hideButtons showButtons !~$H% authorButtons Abandon,Close,Monitor,Normal,Filescripts,Tidyup,Hide,password,Epassword $Control$ About "About" buttonUp buttonUp About ABOUT IDC buttonUp buttonUp Options "$Options$" buttonUp buttonUp $Options$ Options Compile Compile 4monitor makeNewBook buttonUp buttonUp makeNewBook monitor Detach buttonUp buttonUp Pages "Author" "Save" rightbuttondoubleclick rightbuttondoubleclick Author 0 pages Error Information Error Control 4protected "Password" xIDCpassword "Names" "Images" "Entities" authorButtons "Abandon,Close,Monitor,Normal,Filescripts,Tidyup,Hide, ,Epassword" showButtons rightButtonDoubleClick rightButtonDoubleClick Password IDCpassword Names Images Entities authorButtons Abandon,Close,Monitor,Normal,Filescripts,Tidyup,Hide,password,Epassword showButtons authorButtons protected Control Screen Read will make a preliminary scan of the input file and report errors. Compile will create the pages of the output file and report any further errors. Detach creates the ToolBook corresponding to the input file. Options allows presentation and compiler options to be set. Quit aborts. Trace Close 4inputFile buttonUp buttonUp inputFile CLOSE INPUT Abandon 4pagelist,monitor pageList selectPage "$Shared$" "BookTitle" "firstpage" "Data" buttonUp buttonUp pageList selectPage clear $Shared$ clear BookTitle $Title$ firstpage $Title$ $Title$ pagelist monitor ABANDON filescripts path( & "utility.tbk" b & "scr" scriptfile filescripts buttonUp buttonUp utility.tbk filescripts scriptfile FILE SCRIPTS TidyUp "Names" "Images" "Error" "Trace" "Entities" "About" buttonUp buttonUp Names Images Error Trace Entities About TIDY UP "Names" "Images" "Entities" buttonUp buttonUp Names Images Entities Images Names Entities createshell IDCname() "Shell" createShell -- only comes .here aborted buttonUp buttonUp IDCname "IDCname Shell createShell "IDCname CREATE SHELL extractformats "FormatBookScript" "$Standard$" extractFormats buttonUp buttonUp FormatBookScript $Standard$ extractFormats EXTRACT FORMATS addformats "Shortly you will see the ToolBook Import dialogue box." & CRLF &\ "Select 3option, Cfile containing Udesired formats." & "NOTE: If click Cancel have use Control-X Exit" saveNewIDC buttonUp buttonUp Shortly you will see the ToolBook Import dialogue box. Select the ToolBook option, and then import the file containing the desired formats. NOTE: If you click Cancel in the dialogue box you will have to use Control-X to Exit !import saveNewIDC ATTACH FORMATS Monitor 4monitor buttonUp buttonUp monitor MONITOR minimize minimize buttonUp buttonUp Fominimize MINIMIZE "Suite" "$First$" ("Name version the compiler:" IDCname buttonUp buttonUp Suite $First$ Name this version of the compiler: "IDCname Normal 4protected "Names" "Images" "Entities" hideButtons authorButtons buttonUp buttonUp Names Images Entities hideButtons authorButtons protected NORMAL About buttonUp buttonUp About The Interactive Document Compiler was developed by: Kenneth Tait Computer Based Learning Unit The University Leeds LS2 9JT, UK Tel: +44 532 334628 Fax: +44 532 334635 Email: ken@uk.ac.leeds.cbl ken@cbl.leeds.ac.uk K.Tait@leeds.ukkk DISMISS Password changePassword buttonUp buttonUp 1tchangePassword PASSWORD EPassword changeExitPassword buttonUp buttonUp 3changeExitPassword EXIT PASSWORD makePage n,pt makeNewPage n textstring() "Preamble" done tagstring() process( attribute(" destination( & CRLF "Destinations" "Menu" xclose("o") errorMessage & o & && "expected." -- Should be localTags addTags "o" initialize setup "showmenubar" ePage localTags makePage initialize makePage makeNewPage textstring Preamble tagstring process attribute destination Destinations textstring tagstring close #errorMessage expected. textstring close localTags L)addTags initialize setup showmenubar Label MASTER for Menu Prompt selectedTextlines "Destinations" advance buttonUp buttonUp Destinations \$advance Destinations Preamble Click one of the options. Use the LEFT mouse button. 1993 Computer Based Learning Unit, The University of Leeds v1.0 9312082 Points le MCQ Label MASTER for MCQple MCQ Prompt Question Options "Explanation" selectedTextlines "Correct" textlineCount( "Options" "The correct answer " && a & "." "That's "Feedback" B"Next" buttonUp buttonUp Explanation Correct Correct Correct Options The correct answer is That's right. Feedback Explanation Correct Explanation Feedback nextpage advance follow buttonUp buttonUp nextpage \$advance follow Computer Based Learning Unit The University of Leeds v B 1.0 931201 Click on one of these... ShowLinks showlinks buttonUp buttonUp showlinks SHOW LINKS Active Popup dismiss dismiss dismiss Popup Dismiss Dismiss buttonUp buttonUp FDismiss DISMISS frame HyperBook $Compile$ makepage n,pt 4lasttag makenewpage attribute(" t",pt) checkexists nextpage 7image",pt) getImage ,0,"tl","frame", beforeHypertext "Question","o,x" done process( ans",t) & CRLF "Correct" textstring() & "Options" tagstring() xclose(n) ErrorMessage && "expected." Explanation","x" checkforscrollbar(" 0 && fieldformat illegal -- should be textlineCount( errorMessage "There no tag ""o"" fthe ;e too many localtags addtags "o,x" initialize hidden BNext, Popup" cleared "Feedback" setup "hidemenubar,setformat,randomtext "" optionalbuttons "showlinks hiddenlinks" optionalfields "Active "Click iwhich " && anchorAdjective() && " more information." xpermanentAnchors() kSHOW LINKS see them.)" epage localtags makepage initialize makepage makenewpage attribute checkexists nextpage image attribute _UgetImage frame beforeHypertext Question process attribute Correct textstring Options tagstring close #ErrorMessage close expected. Hypertext Explanation Explanation checkforscrollbar Explanation fieldformat close #ErrorMessage is illegal in this format. textstring tagstring Correct Correct #errorMessage There is no tag "o" with the attribute "ans". #errorMessage There too many tags with the attribute "ans". lasttag localtags L)addtags initialize hidden recordfield Explanation,button Next,group Popup cleared Feedback setup hidemenubar,setformat,randomtext "Options,Correct" optionalbuttons showlinks hiddenlinks optionalfields Active links Click words which are anchorAdjective for more information. Active permanentAnchors (Click SHOW LINKS to see them.) Active Classification Responses buttonUp buttonUp Label MASTER for Classification Prompt "Option" B"Explain" selectedTextLines "Picked" Prompt "Select "Responses" buttonUp buttonUp Option Explain Picked 'Prompt Select an item first. Responses Responses Items "Picked" selectedTextlines buttonUp buttonUp Picked Picked Option You may change your choices or click on NOTES to see the correct answers and some help or hints..xplanation. Right All your answers are correct. Click on NOTES for help or hints..n. Instructions Choose first from here ........... Computer Based Learning Unit The University of Leeds v A 2.1 931201 Explain Answers B"OK" "Explanation" B"Next" B"OK" buttonUp buttonUp oEMAnswers Explanation NOTES nextpage advance follow buttonUp buttonUp nextpage \$advance follow ... and then from here. Click OK when you would like your answers checked. Explanation Correct AnsNos Picked $Scripts$ option type -- This sets IT options be used fthe Title -- i.e credits 4temp,emphasis_tag,para_tag,list_tag,headings "newline" oneof( option option italic newline oneof newline,bold,space emphasis_tag para_tag list_tag headings $Text$ Text field script hidelabel hidelabel "Label" hidelabel hidelabel Label hidelabel showmenubar showmenubar showmenubar showmenubar showmenubar setformat setformat fieldformat setformat setformat fieldformat setformat Standard Scripts hidemenubar hidemenubar hidemenubar hidemenubar hidemenubar randomize randomize k32767 randomize randomize seconds randomize copying copying enable "CopyText" clearPrompt 4markCopyText ' "Move the beginning . Then CLICK Smouse copyfields [firstchar copying CopyText copying enable CopyText clearPrompt CopyText 'Prompt Move the pointer to the beginning of the target text. Then CLICK the left mouse button. copyfields firstchar markCopyText copyingrrrrrr notetaking notetakingggg title title "$Title$" title title title $Title$ Title titlellllll BookScript -- Script compiled 4addressstack path( "COMM136.TBK" p & b linkDLL "tbkfile.dll" INT fileExists(STRING) Request "The 8" && b && " xpresent directory" && p & "." sysSuspendMessages unLinkDLL " setupBook ~("\",f) -- Optional handlers ... enterBook enterBook COMM136.TBK tbkfile.dll fileExists fileExists The book is not present in directory tbkfile.dll setupBook addressstack Book Script Utilitiessns scores scoresggggggg The script of this page contains the text options for the Title page. randomtext randomtext rf -- recordfields rf are randomized synchronously textlineCount( randomtext randomtext randomtext listblanks listblanks tl textlineCount( O(0,blankbegin t,blankend "Text", i && j & CRLF listblanks listblanks blankbegin blankend blanks j:to1 listblanks Classification Options $Options$ makepage n,pt -- Recordfield "Items" cthe [displayed] -Correct" )correct answer Gsame pAns" ganswers [ AnsNos" numbers -- " are shuffled synchronously -- " 4lasttag Zidlist makenewpage n attribute(" t",pt) checkexists nextpage beforeHypertext "Instructions","i,a,x" done acount process( textstring() & CRLF tagstring() ",tt) idname itemnumber( F-- repeat makeAns nn, -- should be xclose(n) errorMessage && "expected." /"a omitted." Explanation","x" checkforscrollbar(" 0 && fieldformat ErrorMessage n && " illegal tag,n g) & " localtags addtags "i,a -,d,x" initialize setup "hidemenubar,setformat,randomtext "" hidden Option, Right, BExplain, BNext" shown cleared "Responses,Picked" makeAns makepage localtags initialize makepage makenewpage attribute checkexists nextpage beforeHypertext Instructions i,a,x process textstring Items tagstring process attribute itemnumber Correct j/makeAns j/makeAns textstring tagstring close #errorMessage close expected. close #errorMessage a omitted. #errorMessage a expected. textstring AnsNos tagstring close #errorMessage close expected. Hypertext Explanation Explanation checkforscrollbar Explanation fieldformat close #ErrorMessage is illegal in this format. textstring tagstring idname acount idlist lasttag makeAns textstring AnsNos Correct tagstring close #errorMessage close expected. localtags L)addtags i,a -,d,x initialize setup hidemenubar,setformat,randomtext "Items,Correct",randomtext "Ans,AnsNos" hidden recordfield Explanation,field Option,field Right,button Explain,button Next shown button OK cleared Responses,Picked X4X48 #$%W# #k$&$;$I$ $g$ s(N q( #q &# %E U% #[ U% 'B i'' "3. "b. $C-H$ #N)S#D) "I)~"Q)V"`)'"t) !A*s! #x*7# *v# + )W(1) (J).)C)])4) (-(M(A( (S( 'v(d'v(7's( &?(y& &6&U&w& %_'o% &U&~& '['P'V'{'J' '"( 'O( '7*O'Z* (u*N(d* )u)]) yyx{w {{sy7 syw78 yw1s8 y{w8s w8 y {w{w{{s yyw{{x8 {{yyw {w{y{w {y{wx wwy{y{w y{{{{y w{yyy wyx0! {w{y{{ wywwww 88ywy wwwqy{www wwwws wywws {{w{wx {{wx8 ww{wx %www0 {{wxXH www{w {{w{w88 {y{{ww Qw{w{w{{ hHHHH HhHhHH ((hHH HHHhH hhHhHh HHHhH HHhH( ?wxHh w7{xh HH(HHHH HhH(H y{80 HhhHH hHhHh {xHhH CHd(HH HHHHH$ HHHHH S (HHHH %hHHH wwwyw HhH(HhH w78ws HHH(H H(HH$ (H(HH (H(HHH hHhHH xHHHHH hHHH$ (HHH` HHBHH$ HHHHHH H(HHH HHHHHB idc136.ico